home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / teglp.zip / SAMPROGS.ZIP / SAMC0102.PAS < prev    next >
Pascal/Delphi Source File  |  1990-06-27  |  1KB  |  61 lines
  1. {$F+}  { -- far code model is required for any functions that }
  2.        { -- are to be used as Event Handlers }
  3.  
  4. Uses
  5.     dos,
  6.     graph,
  7.  
  8.     teglfont,
  9.     virtmem,
  10.     fastgrph,
  11.     TEGLIntr,
  12.     TEGLICON,
  13.     TEGLGRPH,
  14.     TEGLUnit,
  15.     TEGLMenu,
  16.     SenseMs,
  17.     DebugUnt,
  18.     TEGLEasy;
  19.  
  20.  
  21. { -- insert variables here }
  22.  
  23. VAR
  24.   om1, om2 : OptionMPtr;
  25.  
  26. { -- insert procedures and functions here }
  27.  
  28.  
  29. FUNCTION GetMsSense(FS:imagestkptr; Ms: msclickptr) : WORD;
  30.   BEGIN
  31.     SetMouseSense(fs^.x,fs^.y);
  32.     GetMsSense := 1;
  33.   END;
  34.  
  35.  
  36.  
  37. BEGIN
  38.  
  39.    EasyTEGL;
  40.  
  41.    { -- insert the example code here }
  42.    { -- press Ctrl-Break to exit program }
  43.  
  44.    om1 := CreateOptionMenu(@Font14);
  45.    DefineOptions(om1,' Open ',true,NilUnitProc);
  46.    DefineOptions(om1,'--',false,NilUnitProc);
  47.    DefineOptions(om1,' Quit ',true,Quit);
  48.  
  49.    om2 := CreateOptionMenu(@Font14);
  50.    DefineOptions(om2,' Memory ',true,ShowCoordinates);
  51.    DefineOptions(om2,' Mouse Sensitivity ',true,GetMsSense);
  52.  
  53.    CreateBarMenu(0,0,getmaxx);
  54.    OutBarOption(' File ',om1);
  55.    OutBarOption(' Utility ',om2);
  56.  
  57.    { -- control is then passed to the supervisor }
  58.  
  59.    TEGLSupervisor;
  60. END.
  61.